Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Лабораторна робота №6

Інформація про навчальний заклад

ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано

Інформація про роботу

Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Варіант:
3

Частина тексту файла

ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №6 ЛАБОРАТОРНА РОБОТА № 6 Тема: Структура програми. Оператори мови Turbo Pascal. Мета: Вивчення структури програми та операторів TP7. Застосування операторів мови до програмування різних алгоритмічних конструкцій. ЗАВДАННЯ ДО РОБОТИ: Скласти програми на мові Pascal на основі алгоритмів, побудованих для розв'язування задач в лабораторних роботах №№3-5. 1.Обчислити значення функції:  2. Обчислити значення функції: . 3. Дано три числа. Піднести до квадрату ті з них, значення яких від’ємні. 4. Для N чисел, що послідовно вводяться, визначити, чи розташовані вони в зростаючому порядку. 5. Обчислити нескінчену суму  із заданою точністю  (). Задана точність досягнута, якщо . 6. Знайти найбiльший спiльний дiльник трьох заданих натуральних чисел M, N, K. ХІД РОБОТИ Обчислити значення функції: . / program v1; var x,y:real; begin writeln('x='); readln(x); y:=(sqr(x)*sqr(x)*x)*sin(sqr(x)*sqr(x)-3*sqr(x)); writeln('y=',y:10:4); end. / Обчислити значення функції: . / program v1; var x,y,z:real; begin writeln('x'); readln(x); writeln('y'); readln(y); writeln('z'); readln(z); if x=z then y:=0; if x<>z then y:=(x+3*y+z)/(sqr(x-z)*sqr(x-z)*sqr(x-z)*(x-z)); writeln('y=',y:10:20); end. / / 3.Дано три числа. Піднести до квадрату ті з них, значення яких від’ємні. / program v1; var a,b,c,x,y,z:integer; begin writeln('a='); readln(a); writeln('b='); readln(b); writeln('c='); readln(c); if a<0 then x:=a*a else x:=0; if b<0 then y:=b*b else y:=0; if c<0 then z:=c*c else z:=0; writeln('x=', x:6); writeln('y=', y:6); writeln('z=', z:6); end. / 4. Для N чисел, що послідовно вводяться, визначити, чи розташовані вони в зростаючому порядку. / Program v1; var N, i, value, buf: integer; begin Writeln('Enter N :'); Readln(N); Readln(buf); for i:=1 to N-1 do begin Readln(value); if(buf>value) then begin Writeln('Not '); break; end; buf:=value; end; Writeln('Good!'); end. // 5. Обчислити нескінчену суму  із заданою точністю  (). Задана точність досягнута, якщо . / program v1; var s,c,E:real; i:integer; begin writeln('E='); readln(E); S:=0; i:=1; repeat begin c:=s; S:=c+(1)/(i*(i+1)); end; until c>=E; writeln('s=',s:10:10); end. / 6. Знайти найбiльший спiльний дiльник трьох заданих натуральних чисел M, N, K. / program v1; var M,N,K: longint; function nod(M, N: longint): longint; begin while (M<>0) and (N<>0) do begin if M>N then M:=M mod N else N:=N mod M; nod := M + N; end; end; begin writeln('M='); read(M); writeln('N='); read(N); writeln('k='); read(K); writeln(nod(nod(M,N),K)); end. / Висновок Отже, за допомогою даної лабораторної роботи я вивчила структуру програми та оператори TP7. Навчилася застосовувати оператори мови до програмування різних алгоритмічних конструкцій.
Антиботан аватар за замовчуванням

03.05.2018 21:05

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини